1 REM TURTLE-DEMO: 'PATTERNS'
2 REM N. HEUSLER 11.91
3 :
10 SYS49152
20 !GRAPHICS
30 X=0:Y=0
110 I=I+1
120 !PEN0:!MOVEX,Y:X=X+1:Y=Y+1:!ANGLE270:!MODE1
121 M=0:FORJ=0TO7:L=0:K=RND(TI):IFK<I/100THENL=1
122 M=M+L*2^J:NEXT
130 !PATTERNM
140 !WALK320-I*2:IFI=100THEN:!FINISH
150 !TURNR90
160 !WALK200-I*2
170 !TURNR90
180 !WALK320-I*2
190 !TURNR90
200 !WALK199-I*2
210 GOTO110